home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / smrtconf.zip / CONF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-28  |  4KB  |  226 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + "Conf.Cfg", 0, 0
  35.     FGet 1, INTEGER001
  36.     INTEGER002 = Ferr(1)
  37.     If (INTEGER002) Goto LABEL012
  38.     FGet 1, STRING005
  39.     INTEGER002 = Ferr(1)
  40.     If (INTEGER002) Goto LABEL012
  41.     FGet 1, STRING008
  42.     INTEGER002 = Ferr(1)
  43.     If (INTEGER002) Goto LABEL012
  44.     STRING008 = Trim(STRING008, " ")
  45.     FClose 1
  46.     :LABEL001
  47.     GetToken STRING006
  48.     STRING007 = ""
  49.     While (STRING006 <> "") Do
  50.         STRING007 = STRING007 + " " + STRING006
  51.         STRING006 = ""
  52.         GetToken STRING006
  53.     EndWhile
  54.     If (STRING007 <> "") Goto LABEL010
  55.     STRING004 = ""
  56.     INTEGER004 = 0
  57.     Newline
  58.     PrintLn "@X1E             @BOARDNAME@@POS:70@@X08"
  59.     PrintLn "@X1E@POS:70@@X08"
  60.     PrintLn "@X1E       You can (@X1CS@X1E)can@X1E for a conference topic @POS:70@@X08"
  61.     PrintLn "@X1E               (@X1CL@X1E)ist@X1E the entire Conference Directory@POS:70@@X08"
  62.     PrintLn "@X1E               (@X1CN@X1E)ame or Number of Conference to Join@POS:70@@X08"
  63.     PrintLn "@X1E               (@X1CQ@X1E)uit@X1E to the @CONFNAME@ @POS:70@@X07"
  64.     PrintLn "@X1E                                                           @POS:70@@X07"
  65.     PrintLn ""
  66.     InputStr "@X0E(@X0CS@X0E)can list (@X0CL@X0E)ist conference directory (@X0CN@X0E)ame or # to join (@X0CQ@X0E)uit", STRING004, 14, 1, "LlSsNnQqHh?", 64
  67.     STRING004 = Upper(STRING004)
  68.     If (STRING004 == "S") Goto LABEL004
  69.     If (STRING004 == "L") Goto LABEL003
  70.     If (STRING004 == "N") Goto LABEL010
  71.     If ((STRING004 == "H") || (STRING004 == "?")) Goto LABEL011
  72.     If (STRING004 == "Q") Goto LABEL002
  73.     Goto LABEL001
  74.     :LABEL002
  75.     Log "User ended the CONF user command", 0
  76.     End
  77.     :LABEL003
  78.     PrintLn ""
  79.     PrintLn "@X1E       The entire conference list will take " + STRING008 + " screens.@POS:70@@X07"
  80.     PrintLn ""
  81.     InputStr "Do you wish to display the entire conference list? (@X0CY@X0E/@X0Cn@X0E)", STRING003, 14, 1, "YyNn", 16384
  82.     If (Upper(STRING003) == "N") Goto LABEL001
  83.     PrintLn ""
  84.     DispFile STRING005, ""
  85.     Log "Displayed the CNFN file", 0
  86.     Goto LABEL007
  87.     :LABEL004
  88.     PrintLn "@X1E@POS:78@@X07"
  89.     PrintLn "@X1E  This option will allow you to enter a string to scan the conference @POS:78@@X07"
  90.     PrintLn "@X1E  list and display those conferences which contain the string entry. @POS:78@@X07"
  91.     PrintLn "@X1E@POS:78@@X07"
  92.     PrintLn "@X1E  Example Keywords: Microsoft, DOS, Windows, Chat, DV, Source, Modem@POS:78@@X07"
  93.     PrintLn "@X1E@POS:78@@X07"
  94.     PrintLn "@X1E       Enter up to eight (8) characters to search for.@POS:78@@X07"
  95.     PrintLn "@X1E@POS:78@@X07"
  96.     PrintLn ""
  97.     STRING001 = ""
  98.     InputText "@X0EEnter the Text to Find", STRING001, 14, 8
  99.     If (STRING001 == "") Goto LABEL001
  100.     STRING001 = Upper(STRING001)
  101.     FOpen 1, STRING005, 0, 0
  102.     Log "Searched CNFN file for " + STRING001, 0
  103.     Cls
  104.     Gosub LABEL006
  105.     If (INTEGER004) Goto LABEL007
  106.     INTEGER004 = 0
  107.     :LABEL005
  108.     Gosub LABEL009
  109.     If (INTEGER004) Goto LABEL007
  110.     If (InStr(Upper(STRING002), Upper(STRING001))) Then
  111.         Gosub LABEL008
  112.         If (INTEGER002 || Abort()) Goto LABEL007
  113.     Endif
  114.     Goto LABEL005
  115.     :LABEL006
  116.     INTEGER004 = 0
  117.     If (INTEGER001 > 0) Then
  118.         For INTEGER003 = 0 To INTEGER001
  119.             Gosub LABEL009
  120.             If (INTEGER004 == 1) Then
  121.                 Return
  122.             Endif
  123.             PrintLn STRING002
  124.             If (INTEGER002 || Abort()) Then
  125.                 INTEGER004 = 1
  126.                 Return
  127.             Endif
  128.         Next
  129.     Endif
  130.     Return
  131.     :LABEL007
  132.     FClose 1
  133.     PrintLn "@X0CEnd of list.....@X07"
  134.     Wait
  135.     STRING002 = ""
  136.     Goto LABEL001
  137.     :LABEL008
  138.     PrintLn "@X0B", STRING002
  139.     Return
  140.     :LABEL009
  141.     FGet 1, STRING002
  142.     INTEGER002 = Ferr(1)
  143.     If (INTEGER002 || Abort()) INTEGER004 = 1
  144.     Return
  145.     :LABEL010
  146.     STRING001 = ""
  147.     If (STRING007 == "") InputText "@X0EEnter the Conference Number or Name to Join", STRING001, 14, 8
  148.     If ((STRING001 == "") && (STRING007 == "")) Goto LABEL001
  149.     If (STRING001 <> "") Join STRING001
  150.     STRING007 = Trim(STRING007, " ")
  151.     If (STRING007 <> "") Join STRING007
  152.     End
  153.     :LABEL011
  154.     DispFile HelpPath() + "Hlpj", ""
  155.     Wait
  156.     Goto LABEL001
  157.     :LABEL012
  158.     FClose 1
  159.     PrintLn "Error Reading Config File" + PPEPath() + "Conf.Cfg"
  160.     Log "Error Reading Config File" + PPEPath() + "Conf.Cfg", 0
  161.     End
  162.  
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Usage report (before postprocessing)
  166. ;
  167. ; ■ Statements used :
  168. ;
  169. ;    3       End
  170. ;    1       Cls
  171. ;    2       Wait
  172. ;    28      Goto 
  173. ;    22      Let 
  174. ;    25      PrintLn 
  175. ;    25      If 
  176. ;    2       DispFile 
  177. ;    2       FOpen 
  178. ;    3       FClose 
  179. ;    4       FGet 
  180. ;    4       Log 
  181. ;    2       InputStr 
  182. ;    4       Gosub 
  183. ;    5       Return
  184. ;    1       Newline
  185. ;    2       GetToken 
  186. ;    2       InputText 
  187. ;    2       Join 
  188. ;
  189. ;
  190. ; ■ Functions used :
  191. ;
  192. ;    12      +
  193. ;    12      ==
  194. ;    4       <>
  195. ;    1       <
  196. ;    1       <=
  197. ;    1       >
  198. ;    2       >=
  199. ;    6       !
  200. ;    3       &&
  201. ;    5       ||
  202. ;    5       Upper()
  203. ;    4       Ferr()
  204. ;    1       InStr()
  205. ;    3       Abort()
  206. ;    2       Trim()
  207. ;    3       PPEPath()
  208. ;    1       HelpPath()
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Analysis flags : No flag
  213. ;
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Postprocessing report
  217. ;
  218. ;    1       For/Next
  219. ;    1       While/EndWhile
  220. ;    4       If/Then or If/Then/Else
  221. ;    0       Select Case
  222. ;
  223. ;------------------------------------------------------------------------------
  224. ;                 AEGiS Corp - Break the routines, code against the machines!
  225. ;------------------------------------------------------------------------------
  226.